Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/peep-macs.sc

Text File | 1993-07-16 | 10KB | 1 lines

(dependencies (standard0 list-fns) names (peep-macs) length 1930 nslots 14 code ((36 (%%-big-arg-%% 17)) (5 (%%-big-arg-%% 0)) (3 0) (31 (%%-big-arg-%% 130)) (17 1) (36 (%%-big-arg-%% 27)) (5 (%%-big-arg-%% 0)) (4 (%%-static-%% . 34)) (46) (1 (%%-link-me-%% boot . make-installed-module)) (34 2) (36 (%%-big-arg-%% 60)) (5 (%%-big-arg-%% 0)) (8 3) (4 (%%-static-%% . 32)) (5 (%%-me-local--%% . combine-results)) (3 0) (39) (8 0) (5 (%%-me-local--%% . peephole-matcher)) (3 0) (39) (28 1) (5 (%%-me-local--%% . preprocess-rules)) (3 0) (39) (28 1) (17 1) (1 (%%-link-me-%% boot . install-local-bindings)) (34 3) (17 1) (36 (%%-big-arg-%% 28)) (5 (%%-big-arg-%% 1)) (8 3) (4 (%%-static-%% . 33)) (1 (%%-link-me-%% boot . make-interface)) (34 2) (17 1) (14 2 1) (37) (22 0) (36 (%%-big-arg-%% 1554)) (11) (4 (%%-static-%% . 11)) (5 (%%-big-arg-%% 0)) (39) (51 1) (7 (%%-me-local--%% . preprocess-instruct)) (36 (%%-big-arg-%% 1435)) (11) (4 (%%-static-%% . 11)) (6 1) (39) (51 1) (7 (%%-me-local--%% . make-bindings)) (36 (%%-big-arg-%% 1297)) (11) (4 (%%-static-%% . 11)) (6 2) (39) (51 1) (7 (%%-me-local--%% . preprocess-attributes)) (36 (%%-big-arg-%% 1137)) (11) (4 (%%-static-%% . 11)) (6 3) (39) (51 1) (7 (%%-me-local--%% . mk-attrib-test)) (36 (%%-big-arg-%% 1040)) (11) (4 (%%-static-%% . 11)) (6 4) (39) (51 1) (7 (%%-me-local--%% . preprocess-test)) (36 (%%-big-arg-%% 1010)) (11) (4 (%%-static-%% . 11)) (6 5) (39) (51 1) (7 (%%-me-local--%% . preprocess-test-conditions)) (36 (%%-big-arg-%% 932)) (11) (4 (%%-static-%% . 11)) (6 6) (39) (51 1) (7 (%%-me-local--%% . preprocess-next)) (36 (%%-big-arg-%% 817)) (11) (4 (%%-static-%% . 11)) (6 7) (39) (51 1) (7 (%%-me-local--%% . preprocess-one-of)) (36 (%%-big-arg-%% 781)) (11) (4 (%%-static-%% . 11)) (6 8) (39) (51 1) (7 (%%-me-local--%% . preprocess-do-rules)) (36 (%%-big-arg-%% 623)) (11) (4 (%%-static-%% . 11)) (6 9) (39) (51 1) (7 (%%-me-local--%% . preprocess-output)) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% list-fns . mk-finder)) (9) (34 0) (7 (%%-me-local--%% . find-preproc)) (36 (%%-big-arg-%% 40)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . find-preproc)) (10) (33 1) (4 (%%-static-%% . 24)) (4 (%%-me-local--%% . preprocess-output)) (11) (33 2) (18) (36 (%%-big-arg-%% 40)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . find-preproc)) (10) (33 1) (4 (%%-static-%% . 25)) (4 (%%-me-local--%% . preprocess-next)) (11) (33 2) (18) (36 (%%-big-arg-%% 40)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . find-preproc)) (10) (33 1) (4 (%%-static-%% . 26)) (4 (%%-me-local--%% . preprocess-instruct)) (11) (33 2) (18) (36 (%%-big-arg-%% 40)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . find-preproc)) (10) (33 1) (4 (%%-static-%% . 27)) (4 (%%-me-local--%% . preprocess-test)) (11) (33 2) (18) (36 (%%-big-arg-%% 40)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . find-preproc)) (10) (33 1) (4 (%%-static-%% . 28)) (4 (%%-me-local--%% . preprocess-attributes)) (11) (33 2) (18) (36 (%%-big-arg-%% 40)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . find-preproc)) (10) (33 1) (4 (%%-static-%% . 29)) (4 (%%-me-local--%% . preprocess-one-of)) (11) (33 2) (18) (36 (%%-big-arg-%% 40)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . find-preproc)) (10) (33 1) (4 (%%-static-%% . 30)) (4 (%%-me-local--%% . preprocess-do-rules)) (11) (33 2) (18) (36 (%%-big-arg-%% 266)) (11) (4 (%%-static-%% . 11)) (6 10) (39) (51 1) (7 (%%-me-local--%% . preprocess-rules)) (36 (%%-big-arg-%% 204)) (11) (40 1) (4 (%%-static-%% . 31)) (30) (7 (%%-me-local--%% . peephole-matcher)) (36 (%%-big-arg-%% 25)) (11) (4 (%%-static-%% . 11)) (6 11) (39) (51 2) (7 (%%-me-local--%% . combine-results)) (18) (3 1) (37) (22 2) (11) (20 0 0) (10) (20 0 1) (36 (%%-big-arg-%% 28)) (1 (%%-link-me-%% boot . append)) (12) (19 0 0) (26) (8 4) (19 0 1) (26) (11) (34 2) (10) (19 0 1) (27) (42) (32 (%%-big-arg-%% 33)) (10) (19 0 0) (27) (42) (32 (%%-big-arg-%% 12)) (3 0) (31 (%%-big-arg-%% 10)) (10) (19 0 0) (27) (31 (%%-big-arg-%% 34)) (10) (19 0 0) (27) (42) (32 (%%-big-arg-%% 15)) (10) (19 0 1) (27) (31 (%%-big-arg-%% 13)) (36 (%%-big-arg-%% 13)) (12) (40 1) (14 5 2) (39) (37) (4 (%%-me-local--%% . combine-results)) (36 (%%-big-arg-%% 15)) (12) (19 0 0) (27) (8 5) (10) (33 1) (36 (%%-big-arg-%% 16)) (8 4) (19 0 1) (27) (8 6) (10) (33 1) (11) (14 6 3) (9) (13 4) (26) (31 (%%-big-arg-%% -155)) (4 (%%-static-%% . 20)) (4 (%%-static-%% . 5)) (3 0) (39) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . preprocess-rules)) (8 6) (3 0) (31 (%%-big-arg-%% 14)) (3 0) (39) (39) (14 4 2) (39) (37) (36 (%%-big-arg-%% 16)) (4 (%%-me-local--%% . find-preproc)) (8 4) (26) (10) (33 1) (11) (27) (14 4 2) (16) (9) (13 3) (33 1) (4 (%%-static-%% . 6)) (4 (%%-static-%% . 6)) (4 (%%-static-%% . 23)) (36 (%%-big-arg-%% 49)) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 30)) (1 (%%-link-me-%% init . mapcar)) (36 (%%-big-arg-%% 46)) (8 11) (40 1) (8 11) (3 0) (12) (34 -3) (3 0) (11) (34 2) (39) (4 (%%-static-%% . 7)) (3 0) (39) (39) (39) (4 (%%-static-%% . 7)) (3 0) (39) (39) (14 4 2) (39) (37) (10) (44) (42) (32 (%%-big-arg-%% 7)) (18) (37) (10) (26) (4 (%%-static-%% . 23)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% boot . append)) (8 6) (27) (3 0) (11) (34 2) (39) (3 0) (39) (14 4 2) (39) (37) (10) (26) (4 (%%-static-%% . 5)) (3 0) (39) (14 4 2) (39) (37) (1 (%%-link-me-%% list-fns . fold)) (36 (%%-big-arg-%% 69)) (12) (40 2) (36 (%%-big-arg-%% 30)) (1 (%%-link-me-%% init . mapcar)) (36 (%%-big-arg-%% 30)) (8 7) (40 1) (8 7) (3 0) (12) (34 -3) (4 (%%-static-%% . 22)) (12) (14 7 4) (9) (13 5) (34 3) (18) (4 (%%-me-local--%% . preprocess-rules)) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% -252)) (4 (%%-static-%% . 21)) (12) (12) (3 0) (39) (39) (14 5 2) (39) (37) (4 (%%-static-%% . 6)) (4 (%%-static-%% . 7)) (4 (%%-static-%% . 20)) (4 (%%-static-%% . 5)) (3 0) (39) (36 (%%-big-arg-%% 20)) (4 (%%-me-local--%% . preprocess-rules)) (8 8) (26) (3 0) (31 (%%-big-arg-%% -311)) (3 0) (39) (39) (39) (3 0) (39) (39) (14 4 2) (39) (37) (18) (4 (%%-static-%% . 17)) (16) (39) (37) (4 (%%-static-%% . 1)) (36 (%%-big-arg-%% 20)) (4 (%%-me-local--%% . preprocess-test-conditions)) (8 5) (26) (3 0) (31 (%%-big-arg-%% -29)) (36 (%%-big-arg-%% 21)) (4 (%%-me-local--%% . preprocess-rules)) (8 6) (27) (26) (3 0) (31 (%%-big-arg-%% -380)) (4 (%%-static-%% . 6)) (4 (%%-static-%% . 7)) (4 (%%-static-%% . 7)) (3 0) (39) (39) (39) (3 0) (39) (39) (39) (14 4 2) (39) (37) (4 (%%-static-%% . 8)) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 16)) (4 (%%-static-%% . 5)) (3 0) (39) (39) (3 0) (39) (39) (3 0) (39) (4 (%%-static-%% . 17)) (36 (%%-big-arg-%% 49)) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 30)) (1 (%%-link-me-%% init . mapcar)) (36 (%%-big-arg-%% 31)) (8 11) (40 1) (8 11) (3 0) (12) (34 -3) (3 0) (11) (34 2) (39) (3 0) (39) (39) (14 4 2) (39) (37) (4 (%%-static-%% . 18)) (4 (%%-static-%% . 19)) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 4)) (8 5) (26) (3 0) (39) (39) (3 0) (39) (39) (39) (12) (27) (26) (3 0) (39) (39) (14 4 2) (39) (37) (4 (%%-static-%% . 1)) (36 (%%-big-arg-%% 20)) (4 (%%-me-local--%% . mk-attrib-test)) (8 5) (26) (3 0) (31 (%%-big-arg-%% -159)) (4 (%%-static-%% . 8)) (8 4) (27) (26) (4 (%%-static-%% . 5)) (3 0) (39) (39) (3 0) (39) (36 (%%-big-arg-%% 36)) (4 (%%-me-local--%% . preprocess-rules)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . caddr)) (8 11) (10) (34 1) (3 0) (31 (%%-big-arg-%% -631)) (3 0) (39) (39) (39) (4 (%%-static-%% . 6)) (4 (%%-static-%% . 7)) (4 (%%-static-%% . 7)) (3 0) (39) (39) (39) (3 0) (39) (39) (39) (14 4 2) (39) (37) (18) (4 (%%-static-%% . 14)) (3 0) (31 (%%-big-arg-%% 5)) (11) (42) (32 (%%-big-arg-%% 10)) (17 3) (3 0) (37) (11) (26) (3 0) (39) (9) (4 (%%-static-%% . 12)) (4 (%%-static-%% . 5)) (8 5) (3 0) (39) (39) (39) (3 0) (39) (29) (18) (36 (%%-big-arg-%% 37)) (3 0) (8 6) (27) (1 (%%-link-me-%% arith . +)) (8 7) (4 (%%-static-%% . 13)) (3 0) (62 -3) (3 0) (31 (%%-big-arg-%% -72)) (14 5 2) (39) (37) (36 (%%-big-arg-%% 41)) (1 (%%-link-me-%% init . =)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . length)) (8 7) (10) (33 1) (4 (%%-static-%% . 0)) (11) (33 2) (32 (%%-big-arg-%% 143)) (4 (%%-static-%% . 1)) (4 (%%-static-%% . 2)) (4 (%%-static-%% . 3)) (4 (%%-static-%% . 4)) (8 5) (26) (3 0) (39) (39) (4 (%%-static-%% . 5)) (3 0) (39) (39) (39) (3 0) (39) (39) (4 (%%-static-%% . 6)) (4 (%%-static-%% . 7)) (4 (%%-static-%% . 7)) (3 0) (39) (39) (39) (4 (%%-static-%% . 8)) (36 (%%-big-arg-%% 21)) (4 (%%-me-local--%% . make-bindings)) (8 8) (27) (26) (3 0) (31 (%%-big-arg-%% -223)) (36 (%%-big-arg-%% 36)) (4 (%%-me-local--%% . preprocess-rules)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . caddr)) (8 12) (10) (34 1) (3 0) (31 (%%-big-arg-%% -930)) (3 0) (39) (39) (39) (3 0) (39) (39) (39) (14 4 2) (39) (37) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 9)) (1 (%%-link-me-%% errors . <clock-tick>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (8 6) (3 0) (39) (29) (18) (12) (14 7 4) (9) (13 5) (34 -3)) statics (3 if not match-instruct quote i cons nil let "Instruct error.." error-value peep-macs i-arg-ref 1 0 @-info-@ i-info and equal slot-value lambda combine-results (cons nil nil) list output next instruct test attributes one-of do-rules 39 (combine-results peephole-matcher preprocess-rules) ((strip (union (import standard0) (import list-fns))) combine-results peephole-matcher preprocess-rules) peep-macs))